﻿Public Module Modulo
  Sub Main()

    Dim i As Integer     ' variabile di ciclo
    Dim risp As String = ""   ' per messaggio
    Dim arr(3) As Auto
    arr(0) = New Auto(1600, "AZ417DD")
    arr(1) = New Auto(1000, "DE934AS")
    arr(2) = New Auto(1800, "AB123FF")
    arr(3) = New Auto(600, "MI43488A")

    Array.Sort(arr)       ' ordinamento array

    For i = 0 To 3
      ' preparazione messaggio ordinamento
      ' per cilindrata
      risp &= arr(i).cilindrata & _
         Environment.NewLine
    Next
    Console.WriteLine(risp)
    Console.ReadLine()

  End Sub
End Module
